home *** CD-ROM | disk | FTP | other *** search
/ Dos/V Magazine 1995 October 15 / CD [VMAG951015].bin / _demo / nekodemo / rtrv / shared.dir / 00355_3FrameScore.ls < prev    next >
Encoding:
Text File  |  1995-05-10  |  2.8 KB  |  112 lines
  1. on mouseDown
  2.   global galreadyshownbutton, greqcode, greqsprite, greq, gblend.47, gblend.46, gppoem, gcurrentnumber
  3.   if soundBusy(2) then
  4.     sound stop 2
  5.     set gpleasespeak to EMPTY
  6.   else
  7.     nothing()
  8.   end if
  9.   set greqcode to 0
  10.   set greqsprite to clickOn()
  11.   if (greqsprite = 15) or (greqsprite = 16) then
  12.     repeat while stillDown()
  13.       if galreadyshownbutton then
  14.         if getaProp(gppoem, gcurrentnumber + 1) = EMPTY then
  15.           set gblend.47 to 0
  16.         else
  17.           set gblend.47 to 100
  18.         end if
  19.         if (getpoemname(gtpoem, gcurrentnumber, 5) = EMPTY) and (greqsprite = 16) then
  20.           set gblend.46 to 0
  21.         else
  22.           set gblend.46 to 100
  23.         end if
  24.         showfloat(greqsprite)
  25.         set galreadyshownbutton to 0
  26.       end if
  27.     end repeat
  28.     if rollOver(45) then
  29.       set greqcode to 45
  30.     else
  31.       if rollOver(46) then
  32.         set greqcode to 46
  33.       else
  34.         if rollOver(47) then
  35.           set greqcode to 47
  36.         end if
  37.       end if
  38.     end if
  39.   else
  40.     nothing()
  41.   end if
  42. end
  43.  
  44. on mouseUp
  45.   global greqcode, greqsprite, gextension, gpleasespeak, gtpoem, gcurrentnumber, greq
  46.   if greqcode <> 0 then
  47.     set the castNum of sprite greqcode to cast ("H-CLOSE" & string(gextension))
  48.     updateStage()
  49.     waitticks(15)
  50.     set the castNum of sprite greqcode to cast ("OPEN" & string(gextension))
  51.     updateStage()
  52.     waitticks(15)
  53.     if (greqcode = 45) and (greqsprite = 15) then
  54.       sound playFile 2, getpoemname(gtpoem, gcurrentnumber, 1, "N")
  55.       set greqcode to 0
  56.       set greqsprite to 0
  57.     end if
  58.     if (greqcode = 45) and (greqsprite = 16) then
  59.       sound playFile 2, getpoemname(gtpoem, gcurrentnumber, 2, "N")
  60.       set greqcode to 0
  61.       set greqsprite to 0
  62.     end if
  63.     if (greqcode = 46) and (greqsprite = 15) then
  64.       hidefloat()
  65.       set greq to "J"
  66.       set greqcode to 0
  67.       set greqsprite to 0
  68.       go("EX")
  69.     end if
  70.     if (greqcode = 46) and (greqsprite = 16) and (getpoemname(gtpoem, gcurrentnumber, 5) <> EMPTY) then
  71.       hidefloat()
  72.       set greq to "E"
  73.       set greqcode to 0
  74.       set greqsprite to 0
  75.       go("EX")
  76.     end if
  77.     if (greqcode = 47) and (greqsprite = 15) then
  78.       hidefloat()
  79.       if getaProp(gppoem, gcurrentnumber + 1) = EMPTY then
  80.         nothing()
  81.       else
  82.         set greq to "J"
  83.         killpuppet(2)
  84.         set greqcode to 0
  85.         set greqsprite to 0
  86.         outcursor()
  87.         go("PHOTO")
  88.       end if
  89.     end if
  90.     if (greqcode = 47) and (greqsprite = 16) then
  91.       hidefloat()
  92.       if getaProp(gppoem, gcurrentnumber + 1) = EMPTY then
  93.         nothing()
  94.       else
  95.         set greq to "E"
  96.         killpuppet(2)
  97.         set greqcode to 0
  98.         set greqsprite to 0
  99.         outcursor()
  100.         go("PHOTO")
  101.       end if
  102.     end if
  103.   else
  104.     nothing()
  105.   end if
  106.   hidefloat()
  107. end
  108.  
  109. on exitFrame
  110.   go(the frame)
  111. end
  112.